home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
ladybug2.arc
/
SPIRO.BUG
< prev
next >
Wrap
Text File
|
1983-10-10
|
384b
|
5 lines
define "subspiro [[ :side :angle :max][local "count][make "count 1][repeat :max [fd :side * :count rt :angle make "count :count + 1]]]
define "spiro [[ :side :angle :max][repeat 32000 [subspiro :side :angle :max]]]
make "describe [SPIRO from Turtle Graphics, Pg. 37]
"spiro [[ :side :angle :max][repeat 32000 [subspiro :side :angle :max]]]
make "describe [SPIRO from Turtle Gra